home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aac.d64 / quote'mode.proc < prev    next >
Text File  |  2007-02-28  |  491b  |  22 lines
  1. 9000 //
  2. 9010 PROC QUOTE'MODE(TF) CLOSED
  3. 9020 // TF=TRUE    QUOTE'MODE ON
  4. 9030 // TF=FALSE   QUOTE'MODE OFF
  5. 9040 CBM'MODE(TF,(TF>0)*3)
  6. 9050 ENDPROC QUOTE'MODE
  7. 9060 //
  8. 9070 PROC CBM'MODE(TF,TYPE#) CLOSED
  9. 9080 //      TYPE=1: INSERT'MODE(TRUE)
  10. 9090 //      TYPE=2: QUOTE'MODE(TRUE)
  11. 9100 //      TYPE=3: BOTH(TRUE)
  12. 9110 IF NOT TF THEN
  13. 9120 POKE 50336,0
  14. 9130 ELSE 
  15. 9140 IF TYPE#>0 AND TYPE#<4 THEN
  16. 9150 POKE 50336,64*TYPE#
  17. 9160 ELSE 
  18. 9170 ERRTEXT(3)
  19. 9180 ENDIF 
  20. 9190 ENDIF 
  21. 9200 ENDPROC CBM'MODE
  22.